home *** CD-ROM | disk | FTP | other *** search
/ Canadian Geographic Explorer / Canadian Geographic Explorer.iso / pc / eo.dxr / 00022.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  293 b   |  20 lines
  1. global gGizmo
  2.  
  3. on mouseDown
  4.   if not gizmoOpened(gGizmo) then
  5.     dragShrink(gGizmo)
  6.   end if
  7. end
  8.  
  9. on mouseUp
  10.   if gizmoOpened(gGizmo) then
  11.     if isCompassGizmo(gGizmo) then
  12.       goMovie(gGizmo)
  13.     end if
  14.   else
  15.     if the doubleClick then
  16.       expandGizmo(gGizmo)
  17.     end if
  18.   end if
  19. end
  20.